home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarfdrunk.amirx < prev    next >
Text File  |  1999-04-19  |  3KB  |  28 lines
  1. /*
  2. \\  |DWaRFx-TNg| - DWaRFDruNK.AmIRX v1.3
  3. //               - By Gareth Murfin
  4. \\
  5. //
  6. \\  This script makes your text look like it would if you'd just
  7. //  eaten one of Listers drunken fry ups.
  8. \\                                          ------------
  9. //  DWaRFDRuNK.AmIRX - By Gareth Murfin For |DWaRFx-TNG|
  10. \\  /DwDRUNK <text>                         ------------
  11. //
  12. \\  *NOTE* Recognises Key Words and replaces them with fitting phrases
  13. //  examples:-
  14. \\             /DwDrunk version - Will send out the DWaRFDRuNK version response
  15. //             /DwDrunk URL     - Will send out the DWaRFx URL
  16. \\             /DwDrunk :-)     - Will send out suitable text
  17. //             /DwDrunk ;-)     - Will send out suitable text
  18. \\             /DwDrunk :)      - Will send out suitable text
  19. //             /DwDrunk ;)      - Will send out suitable text
  20. \\             /DwDrunk :-(     - Will send out suitable text
  21. //             /DwDrunk ;-(     - Will send out suitable text
  22. \\             /DwDrunk :(      - Will send out suitable text
  23. //             /DwDrunk ;(      - Will send out suitable text
  24. \\
  25. //  If you can suggest anymore key words then email me at gazy@globalnet.co.uk
  26. \\  or code them yourself and send the new script to me! ;-))
  27. */
  28. ;PARSE ARG text;OPTIONS RESULTS;real="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890?!:-)]}'÷.";smeg="ãßç>ËÍghíj<¦mñò¶q®$tùvw×ýzÁß©ÐéÍGHÏJ«1MÑÖþq®§túvW×ÿZ234567891o¿¡8*})]¬·";if text="version";then;do;"say This is DWaRFDRuNK.AmIRX v1.0 By Gareth Murfin for |DWaRFxTNG|";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text="URL";then;do;"say DWaRFx is free at http://www.users.globalnet.co.uk/~gazy/";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=":-)";then;do;"say Just Kidding!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=";-)";then;do;"say hahaha t'was a joke!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=":)";then;do;"say Just Kidding around!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=";)";then;do;"say hehehehe! Just messing with ya head..";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=":-(";then;do;"say Noooo!!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=";-(";then;do;"say argh no!!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=":(";then;do;"say Its not fair!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;if text=";(";then;do;"say Oh damn!";"echo P="d2c(27)"b«DWaRFx» DWaRF-DRuNK Key Word recognised.";endif;end;fryuptext=TRANSLATE(text,smeg,real);"SAY "fryuptext;"echo P="d2c(27)"b«DWaRFx» You've just said - "text